home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / gameser5 / decision.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.3 KB  |  54 lines
  1. 10  CLS:KEY OFF
  2. 20  REM EXECUTIVE DECISION MAKER
  3. 30  REM WRITTEN BY W.A.BURTON
  4. 40  REM INTENDED FOR CRT'S AT HIGH BAUD RATES
  5. 50  CLEAR : WIDTH 80 : PRINT CHR$(26)
  6. 60  DIM Q$(80) : XX=36
  7. 70  PRINT TAB(15); "*** EXECUTIVE DECISION MAKER ***"
  8. 80  PRINT : PRINT : PRINT
  9. 90  PRINT "WHAT IS THE DECISION THAT YOU WOULD LIKE ME TO MAKE FOR YOU"
  10. 100  PRINT "TYPE IN YOUR QUESTION WHICH CAN BE ANSWERED 'YES OR NO'; AND"
  11. 110  PRINT "KEEP IT SHORTER THAN ONE LINE (INCLUDING SPACES)."
  12. 120  PRINT : PRINT : PRINT : PRINT
  13. 130  INPUT Q$
  14. 140  PRINT : PRINT
  15. 150  REM THIS IS A 'PSEUDO-RANDOMIZE' ROUTINE
  16. 160  FOR X=1 TO LEN(Q$)
  17. 170  Z$=MID$(Q$,X,1)
  18. 180  Z=ASC(Z$)
  19. 190  Y=Y+Z
  20. 200  NEXT X
  21. 210  Y=Y MOD 97
  22. 220  FOR X=1 TO Y
  23. 230  Z=RND(1) : Z1=RND(Y)
  24. 240  NEXT X
  25. 250  A$="<*>" : AL$="YES :" : AR$=": NO"
  26. 260  PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..."
  27. 270  PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION"
  28. 280  PRINT : PRINT : PRINT
  29. 290  PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); AR$
  30. 300  WAIT 0,1,1
  31. 310  PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); AR$
  32. 320  W=RND(1)
  33. 330  IF W<0.5 THEN XX=XX+2 ELSE XX=XX-2
  34. 340  IF XX<16 THEN PRINT CHR$(26) : GOTO 380
  35. 350  IF XX>=59 THEN PRINT CHR$(26) : GOTO 410
  36. 360  CX=CX+1
  37. 370  GOTO 310
  38. 380  GOSUB 440
  39. 390  PRINT "YES"
  40. 400  GOTO 490
  41. 410  GOSUB 440
  42. 420  PRINT "NO"
  43. 430  GOTO 490
  44. 440  PRINT : PRINT
  45. 450  PRINT "YOUR QUESTION :"
  46. 460  PRINT Q$ : PRINT
  47. 470  PRINT "MY ANSWER (AFTER"; CX; "AGONIZING STEPS) :"
  48. 480  RETURN
  49. 490  PRINT : PRINT
  50. 500  PRINT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)"
  51. 510  INPUT Q$
  52. 520  IF LEFT$(Q$,1)="Y" THEN RUN
  53. 530  PRINT CHR$(26) : END
  54.